home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byteibm.arc / HOGAN.ARC / LISTING4.TXT < prev    next >
Encoding:
Text File  |  1985-07-12  |  768 b   |  11 lines
  1.        MOV  CX, 40             ; 40 WORDs to search
  2.        MOV  DI, BUFFER         ; DI points at the buffer
  3.        MOV  SI, SCREEN_OFFSET  ; SI points at the screen offset
  4.  START:
  5.        MOV  AX, [DI]           ; 14 clocks -- get two chars from the buffer
  6.        AND  AX, 07F7FH         ;  4 clocks -- turn off the high bits
  7.        MOV  [SI], AX           ; 14 clocks -- put the chars into screen ram
  8.        ADD  SI, 2              ;  4 clocks -- the next two chars in the buffer
  9.        ADD  DI, 2              ;  4 clocks -- the next two chars in screen ram
  10.        LOOP START              ; 17 clocks -- continue until CX is zero
  11.